home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / gauge / gauge.z / DDIALOG.PAS < prev    next >
Pascal/Delphi Source File  |  1995-08-24  |  2KB  |  87 lines
  1. unit Ddialog;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Ddialog1, Clipbrd, DdeMan;
  8.  
  9. const
  10.   Displays        = 40;
  11.  
  12. type
  13.   TDialog = class(TForm)
  14.     Label1: TLabel;
  15.     DisplaysPerMinute: TLabel;
  16.     Label2: TLabel;
  17.     Run: TButton;
  18.     Exit: TButton;
  19.     DPDIALOG: TDdeServerConv;
  20.     DdeServerItem1: TDdeServerItem;
  21.     procedure RunClick(Sender: TObject);
  22.     procedure DDEOpen(Sender: TObject);
  23.     procedure ExitClick(Sender: TObject);
  24.     procedure FormPaint(Sender: TObject);
  25.     procedure ExitEnter(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Dialog:  TDialog;
  34.   Start:   LongInt;
  35.   Stop:    LongInt;
  36.   I:       Integer;
  37.   OneShot: Integer;
  38.   DspsPerMin:     Real;
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TDialog.RunClick(Sender: TObject);
  44. begin
  45.   Run.Enabled := False;
  46.   Exit.Enabled := False;
  47.   Screen.Cursor := crHourglass;
  48.   Start := GetTickCount;
  49.   For I := 1 to Displays Do
  50.     begin
  51.       PersonalInfo.ShowModal;
  52.       PersonalInfo.Update;
  53.     end;
  54.   PersonalInfo.Close;
  55.   Stop := GetTickCount;
  56.   DspsPerMin := Displays * 60000 / (Stop - Start);
  57.   DisplaysPerMinute.Caption := Format( '%10.0n',[DspsPerMin]);
  58.   ClipBoard.AsText := Format( '%10f',[DspsPerMin]);
  59.   Run.Enabled := True;
  60.   Exit.Enabled := True;
  61.   Screen.Cursor := crDefault;
  62.   if OneShot = 1 then Exit.SetFocus;
  63. end;
  64.  
  65. procedure TDialog.DDEOpen(Sender: TObject);
  66. begin
  67.   OneShot := 1;
  68.   Run.Click;
  69. end;
  70.  
  71. procedure TDialog.ExitClick(Sender: TObject);
  72. begin
  73.   Dialog.Close;
  74. end;
  75.  
  76. procedure TDialog.FormPaint(Sender: TObject);
  77. begin
  78.   Dialog.WindowState := wsMaximized;
  79. end;
  80.  
  81. procedure TDialog.ExitEnter(Sender: TObject);
  82. begin
  83.   if OneShot = 1 then Exit.Click;
  84. end;
  85.  
  86. end.
  87.